home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog30 < prev    next >
Encoding:
Text File  |  1995-06-29  |  595 b   |  24 lines
  1.  
  2. # testing access to the SelectionBox components
  3. xtAppInitialize -class Program
  4.  
  5. xmPushButton .b managed -labelString "Push me"
  6. .b activateCallback popup
  7.  
  8. proc popup {} {
  9.   xmSelectionDialog .d managed \
  10.     -listItems {a b c} -listItemCount 3 \
  11.     -listLabelString "Pick one of these"
  12.   .d.Apply unmanageChild
  13.   .d.Help unmanageChild
  14. # this doesnt work - no problem - we aren't told the widget type
  15. # or whether we are allowed to do this
  16. #  .d.Items setValues -labelString "Choose one of these, buster!"
  17.  
  18.   .d setValues -listLabelString "Choose one of these, buster!"
  19. }
  20.  
  21. . realizeWidget
  22.  
  23. . mainLoop
  24.